ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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ca ca ca 
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ca ecccae 
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ca ca 
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@Qaaacaaacaacacaccaca 
usu Mud 
usu wus 
wu usus wus 
wus ww tu 
usu usu usu 
usu usw tuk 
usw mus tut 
ww uw Wu 
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SS) —— 


LLLLLLLLLL 
LLLLLLLLLL 


SHOWTERM SHOW CHARACTERISTICS OF A TERMINAL’ 15-SEP-1984 48:29 YAX/VMS M v04-00 P 1 
- -SEP- 248: acro V04- 
vou-000 t=$Ep=}98e 33:38:20 CLIUTL.SRCJSHOWTERM.MAR; 1 a (1) 


-TITL HOWTERM = SHOW CHARACTERISTICS OF A TERMINA 
“Tent *VOe-600" ; 


. 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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: THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


Soooooooo 


;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARARAAARAASALALALALASALALELE SERA LSE ASSES ESSE ERE R ARERR REESE RRR RARER ARRAS SD GS 


COOSCSCOCCOSOOSOSOSOSOSOSOOSSOOOSOSOOSOSOSOOSOSOSOOOOOOOOO 


NAMES WR CO OO NAUE WN 2S OD NAME WIN SO OD NA E WIR CO OOO NOAUE WH OOWOVNOUNSE 


0 
0000 
S 0 
0 
0000 
0000 
0000 
0000 
8 00 
00 3 
3 00 3 
00 3 
00 p++ 
4 3 FACILITY: CLI UTILITY ‘‘SHOW’’ 
3 ; ABSTRACT: SHOW THE CHARACTERISTICS OF A TERMINAL 
8 38 3 AUTHOR: R.HEINEN 21-NOV-1977 
0 4 3; MODIFIED BY: 
00 3 v03-017 EMB0107 Ellen M. Batbouta 11-Jul-1984 
0000 j Eliminate displaying the holdscreen characteristic since 
8 + ? 3 it is no longer supported. 
4 42 ; V03-016 JRLO004 John R. Lawson, Jr. 19-Jun-1984 11:56 
0 45 ; Eliminate external references to SMG (shareable image) to 
4 44 ; speed up image initialization; Link to SMG only when the 
2 3 package is required. 
09 47; v03-015 EMD0096 Ellen M. Dusseault 02-May-1984 
; 48 ; Display the system password, syspwd, characteristic for 
3 49 ; terminals. 
$0 3 v03-014 MHB0128 Mark Bramhall 29-Mar-1984 
000 3 Display username on second Line if not same as process name. 
4 5 Fix up spooled device display. 
3 - chael I. Rosenblum -Mar- 
$6 v03-013 M1RO350 Michael I. R bl 20-Mar-1984 
00 ; If a terminal is a physical terminal connected to a VT 
000 3 show the backward translation also. Add BIS terminals 
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To the display. 


v03-012 oy Cote Pamela Levesque 07-Mar-1984 
the type number is in the foreign range, search 
termtable for a definition. 


v03-011 mMHB0102 Mark Bramhall 29-F eb- 1984 
Fix up the physical terminal device name display. 


v03-010 ppers Ellen M. Dusseault yh atts 5 
Display new device name, PRO_SERIES, when appropria 
and the status of the new terminal characteristic, bec _CRT2. 


v03-009 mmD0233 4-Feb-1984 14:26 
Add a test to ah Pad the. tivatanl is running as an 
ddemp Line and if it is do not try to show Ene character lattes: 


v03-008 MIRO300 Michael I. Rosenblum 03-F eb-1984 
Add code to show goxecees terminal on disconnected terminals 
and to indicate t terminal is disconnected. 


v03-007 M1R0071 hael I. Rosenblum 22-Jul-1983 
pee Ciopler for OVERS TRIE MODE, DISMISS PARITY, AND 


V03-006 MIR2035 Michael I. Rosenblum 13-May-1983 
Fix word offsets. 


v03-005 MIR1035 Michael I. Rosenblum 09-Apr-1983 
increase size of terminal table to allow VT200 to fit 


V03-004 MIROO Michael I. Rosenblum 27-Apr-1983 
Add support for new device characteristics. 
and V1T200 series terminals. 


v03-003 GAS0099 Gerry Smith 7-Jan-1983 
Modify to run under the new SHOW. 


v03-002 GAS0091 Gerry Smith 19=0c t-1982 
Change input request for new CLD syntax. 


v03-001 MIROO93 Michael I Rosenblum 22-Jul-1982 
Enhance show term to use the new $SGETDOVIW tix bug 
hat shows the device spooled to as being the terminal 
tself rather than the apropriate disk. 


v03-011 MIROO91 Michael I Rosenblum 23-Feb-1981 
Show term on a spooled terminal without privs would 
cause the Q10 sensemode to return a nopriv error with 
the side affect of clearing out the SENSEMODE buffer, 
hence giving erronious information. 


v03-010 MIROO72 Michael I Rosenblum 14-Jan-1981 
Change case of some of the qualifiers. 


v03-009 M1RO0070 Michael I Rosenblun 21-Dec-1981 
Replaced GETDEV with GETDOVI. 
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Be Se Ge Ge Ge Ge Ge Ge Sse Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Ge Se Se Se Se Se Ge Se Ge Ge Se Ge Ge Ge Ge Se Ge Ge 


tt | QOOODVOSHOCOOO 000000 0 0000900 09000000 00 00: 


PANO ODN NE WIN OS ODNAUNE WN $$ SO ODNA UNEP 


Soooooocecoco 
SoOooooooooo 
kt kk tk td ot 


SooooooooSo 


Riles, 8 TSS pana sey aaa 1 Prapea apn ang 


all = mes CmNETOISTICS 6 Mom TATATES SINT TOUTE ess OP 


pote et ig of the output, activated split speed code 
Added code to show username if different from process ID 


v03-001 $B13001 Steven B. Lionel, 26-June-1980 
Remove trailing comme from HALF DUP/FULLDUP. 


115 ; 
118 ; v03-008 M1RO05S6 Michael I Rosenblum 99-Dec-1981 
i ; Added DECCRT, EDIT and SETSPEED. 
118 ; v03-007 MIROO4S ael | Desens lus 29-0c t-1981 
} Y ; Add support for vK100 Ay oy SUBSET bit 
1 5 ; V03-006 MIR0034 Michael I Rosenblum 10-Aug-1981 
125 ; Fix bug in support of GE TDEV feature to get the second device 
0 | ¢ ; dependent word. 
00 1 $ ; v03-005 m1R0032 Michael I Rosenblum 31-Aug-1981 
: : Fixed assembaly error on local symbol. 
00 1 § ; v03-004 M1RO017 Michael I Rosenblum 17-Aug-1981 
00 130 ; Added support for the new terete driver features, Corrected 
oS ! 13 error in split speed code 
000 1 i : v03-003 MIROO0S Michael I Rosenblum 31-July-1981 
9000 ! : 3 Fixed blank owner name now prints ‘‘not available 
9000 6 : v03-002 M1R0001 Michael I Rosenblum 30-July-1981 
0000 138: 
0000 139; 
0000 140; 
0000 141; 
0000 142 ; 


H 16 
= SHOW CHARACTERISTICS OF A TERMINA 15=SEP=-1984 23:48:29 VAX/ 
: . 2-3Eb= 138 33:58:28 Ure eh 


cro v04-00 Page 4 
4 CLIUTL.SRCJSHOWTERM.MAR; 1 (2) 
44 ; 
4 ; MACRO TO EASE CREATION OF NEW TERMINAL TYPES 
4 : .MACRO CRETYPE TYPE,Name 
=. 
49 .if blank name 
ae sASCIC /TYPE/ 
: -ascic /name/ 
endc 
0 $$=. 
»=TYPE_NAME+<TT$_ ‘TYPE#4> 
.IF GE~.-END_NA 
06 Sow .ERROR TTS_'TYPE ; TERMINAL TT$_"TYPE DOES NOT FIT IN TYPE_NAME 
00 59 ° -ADDRESS $$ 
000 160 .ENDC 
000 161 .=$$$ 
900 6 .ENDM 
00 63; 
000 164: MACRO TO HANDLE BIT DEFINITIONS 
909 65 ; FOR THE SECOND DEVICE DEPENDENT LONGWORD 
000 " «MACRO CREBIT2 BIT,ON_STR,OFF_STR 
2098 SYMCRE TT2$V_'BIT,<ON_STR>.<OFF_STR>,POS2,NEG2 
000 ; . 
0000 ; MACRO TO HANDLE SYMBOL DEFINITIONS 
0000 : -MACRO SYMCRE BIT,ON_STR,OFF_STR,ON_BASE_ADR,OFF _BASE_AvR 
9009 $$_ON=. 
.ASCIC /ON_STR/ 


A ad 
we 
wn 
oO 
font 
~n 


=. 
eASCIC /OFF_STR/ 
.=0N_BASE_ADR+<'BIT#4> :GET TO THE RIGHT PLACE (LONG WORD TABLE 


: $ $$_0N 
.=OFF_BASE_ADR+<'BIT#4> ;AND DO THE SAME FOR THE OFF ADDRESS 
-ABDRESS $$_OFF 


: MACRO TO CREATE DEVICE INFORMATION INTEMS 
MACRO SGDVITH LEN, ITEM, ADR,LEN_ADR=0 
“WORD DVIS_"ITEM 

ADR 
LEN_ADR 
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1 
ee 
000000 0000000 


0009000 0000 


0000000 
0000000 


eneeee 
0000004 
00000000 
oooooose 
00000000 
00000000 
00000000 
00000070 
00000074 
0000007D *010E000F 


80000 


0000 


4 
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ST TOBEF 
: LOCAL STORAGE 


~PSECT 


; S STORAGE 
EHOWSL_STATUS: 
HAN: 

BITS: 

10SB: 
UTIL_DESC: 
TER_INFO: 


TERSB DEVEL ASS: 
TERSB_DEVTY 


TERSL_DEVDEP: 


TERSB_LENGTH: 
TERSL ~DEVDEP2: 


TERSL_PID: 
TERSL_DEVCHAR: 


ER$B” PHY 
TERS_PHYDEV: 


—_ 


TERSB-DEVNAMCT 
TERS_BEVNAM: 


TMPS$L YP 
TMPSL— “DEVBUF SIZ: 
TMPTRM_INFO: 


TMP_DEVNAM: 


TMP _TYPE_CT: 
TMP” TYPE” 


PE: - 
TERSW_DEVBUFSIZ:. 


TERSL_ “DEVCHAR2: ol 
TERSL_PHYDEVLN: . 
HYDEVCT: 


TERSL_DEVNAMLN: . 


TMPSL_DEVCLASS: . 
SL-DEVTYPE: 
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TMPTRMSL_DEVDEP2: 
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; DEFINE Hh pall CHARACTERISTICS 
; DEFINE SECOND TERMINAL CHAR LONGWORD 


net 


SHOWSRWDATA,NOEXE ,LONG 

«LONG 1 ; INTERNAL STATUS 

«LONG 3 TERMINAL CHANN R 

- LONG ; STORAGE FOR CLI CK 

«LONG 0 ; I10SB FOR TERMINAL AGET CHARACTERISTICS 

«LONG 0,0 ; UTILITY DESC 

BYTE 0 3; THE tinea a 

YTE QO 3 he TE en YPE 

WORD Q 3; THE WIDTH 

— 3 3 THE FIRST DEVICE DEPENDENT 

“BYTE 0 : TERMINAL LENGTH 

-LONG 0 ; THE SECOND DEVICE DEPENDENT WORD 

LONG 0 ; THE OWNER PID 

«LONG 0 ; THE DEVICE CHARACTERISTICS 

ONG 0 3; THE DEVICE CHARACTERISTICS #2 

LONG 0 ; Length of physical device name 

-BYTE 0 : Count in byte size 

-BLKB 15 ; Maximum of 15 bytes 

LONG 0 ; THE LENGTH OF THE DEVICE NAME 

-BYTE 0 ; COUNT IN BYT I 

-BLKB 15 ; MAXIMUM OF 15 BYTES 

LONG 8 

«LONG 

“LONG 0 
1 ; PLACE TO SAVE THE TERMINAL INFO 

. 1 eecce 

-LONG <DSCSK_CLASS_S @ <DSCS$B_CLASS * pi: 
<DSCSK"DTYPE_T @ <DSCSB_DTYPE * 8>>!- 
15, THP._TYPE MARE 

- 9. COUNTED STRING FOR TERMTABLE TYPE NAME 
0 ; ADDRESS OF DEFINITION FROM TERMTABLE 


NAME : 
TERM_TABCE _ADDR: .LONG 


see 


00000098 : 


9 
52 48 53 47 4D 53 000000A0"010E0000° 009 


A6 
r+] ‘3 ¢ 47 4D ts 99086" JOEpORS" 
41 54 SF 4 35 pee 43 bee 
23 0 4 $F , 42 OC 
45 44 26 47 4D "ge 0000" C 
45 4C 42 41 54 SF 4D a3 F 4C Be 
BE 
E 
OE 
OE 
OOEF 
pore 
3i9 
113 
B1 on 
i 
0137 
0143 
O14F 
00000000 0158 
bier 
15F 
O15F 
ss 
i 
3182 
i 
iy 
3182 
1BF 
Bice 
00000000 Hd 
00000004 0108 
108 
108 
108 
00000368" 0108 
00 0368 
6C 
: 
00000000 020€0000 $C 
74 
45 43 49 56 45 44 0000037C' 8196 008 a fa 
4E 41 4D 52 45 50 0000038A'010E0 82 
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15-SEP-1984 23:48:29 VAX/VMS Macro v04-00 p 
arSErIS8S $858:28 LENIUTS Becta yoteOO un. Poor .S, 

8 : ; Storage for post-activation Linkage to SMG (shareable image) 

é SMGSINIT_TERM_TABLE_BY_TYPE: -BLKL 1 3; Addresses of routines 

? SMGSDEL_TERM_TABLE :~ -BLKL 1 

rf: SSMGSHR: «ASCID /SMGSHR/ ; Name of shareable image 

66 SSMGSINIT_TERM_TABLE_BY_TYPE: .ASCID /SMGSINIT_TERM_TABLE_BY_TYPE/ =; Names of r 
267 SSMGSDEL_TERM_TABLE: -ASCID /SMGSDEL_TERM_TABLE/ 

29 : MAIN DEVICE CHARACTERISTICS 

es GETDVI_INFO: § $GDVITM 4,DEVCHAR, TERSL_DEVCHAR 

7 SGOVITM 4. DEVCHARC, TERSE_DEVCHAR2 

7% SGDVITM 4,DEVCLASS DEVCLASS 

75 GDVITM 4. DEVTYPE,T EVTYPE 

7 SGDVITM 4 .DEvauF SIZ, TMPSL_ DEVBUFSIZ 

7 SGDVITM 4 .DEVDEPEND,T RSL DE 

78 SGDVITM 4. DEVDEPEND2 rr 4 SEVDEP2 

79 SGDVITM 4.PID, TERSL_PID 

80 SGDVITM 15, TT PHYDEQNAM, TERS _PHYDEV, TERSL_PHYDEVLN 

81 SPLDVI_INFO: SGDVITM 13 DEDNAM, TERS_DEVNAM, TERSL_DEVNAMLN 

Be .LONG 0 

84 : SECONDARY COPY OF PRIMARY SPECS 

86 SECDVI_INFO:  $GDVITM 4,DEVCHAR!DVISC_SECONDARY, s TERSL DEVCHAR 

4 SGDVITM 4.DEV CHAR2' DVIST_SECONDARY, TERSC_DEVCHAR2 

8 SGDVITM 4 .DEVCLASS !DVISC SECOND Y *TAPSL DEVCLASS 

89 $GDV 1H 4, DEVTYPE !DVIS$C_ SECONDARY, fMPSL_DEVTYPE 

90 SGDVITM 4, DEVBUFSIZ'!DVISC_SECONDARY, TMPSL_DEVBUF SIZ 

91 SGDVITM 4, DEVDEPEND 'DVI$C~ SECONDARY, TERSL DEVDE 

3 SGDVITM 4, DEVDEPEND2'DVISC_ SECONDARY, TERSL_DEVDEP2 

9 SGDVITM 4-PID'DVISC_ SECONDARY, TERSL_PI 

94 SGDVITM 15, TT PHYDEQNAM! DVISC * SECONDARY TERS_PHYDEV, TERSL_PHYDEVLN 
95 SGDVITM 15, DEQNAM! DVISC_SECONDARY, TERS_OEVNAM, TERSL. DEVNARLN 
% -LONG 0 

38 NUMPERL INE == 

00 CHAR_LIST: REPT 100 

o1 -LONG NULL_STRING 

; ENDR 

NULL_STRING: BYTE 0 
5 


9 
0 


1P 


0 
a 
t 


? CLI REQUEST DESCRIPTORS 


TERM. DESC: .LONG  <DSC 
6°55 
0 

TERM_RQST: sASCID \BEV 

PERM~RQST: “ASCID \PER 
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SHOWTERM 15-SEP-1984 7:48:29 VAX/VMS Ma v04-00 
v04 4-S sett 33:59:28 CLIUTL. SREISHOWTERM.MAR: 1 
54 4E 45 12 : 
; i ; CONTROL STRINGS FOR OUTPUT 
13 @6 23 $5 $ : "3 by g099" Hq 15 SHOWS_TERM_L1: .ASCID ‘Terminal: !10AC Device_Type: !12AC Owner: !AF’ 
HSERIHSRE CES ts 
46 4 A C5 
43 41 21 463 41 21 Hy 2 1080 a CA Hi SHOWS _TERM_LIA: .ASCID ‘!AC!AC' 
41 21 £ 3 3 1 £0'01 * 0308 17 SHOWS _TERM_L1B: .ASCID ‘'!46<!AC!AC!>Username: !AS' 
pee PUREE ER 
49 20 F 21 if 10 . F 318 SHOWS_TERM_L2: .ASCID ‘!/ Input: 'SuUW LFfill:!3uB Width: '4uUW 
20 BF oe ee St Sy SOF fet 9e°5 E 0407 setts A: 
55 65 6 Se 6 AE hee 
Sa Re aE fe 
41 21 20 3A 4 69 72 61 20 ¢8 is 
74 75 4F 0 4C*O10E0000" 0444 319 SHOWS TERM_L3: .ASCID '° Output: !'SuUW CRFILL: !3uB P : !3uB 
20 20 30 SA het eye el ae i PE _* oe ree 
1 3A of 3 3 43 20 2 2 45E 
65 67 $} 0 3 ? ; $0 : 4 $A 
20 20 20 20 20 4 ¢ 9 $ : ig 
$ i ¢; 33 ei ee £320 SC ol Ge 69 rt ¥4 320 SHOWS_TERM_L4: .ASCID ‘'!/Terminal Characteristics:' 
A 73 9 74 9 i 65 AO 
28 23 21 3 3 20 $090 8101050006" rr 321 SHOWS_TERM_LS: .ASCID ° !#(19AC)!AC' 
69 76 65 446 2F 21 G4€7+0106 9009" 4BF 322 SHOWS_TTLP_SPL: .ASCID ‘!/Device spooled to !AD' 
RAGPEOSRURSE Ee 
DE 53 
4DE 4 ; TYPE NAMES 
4DE S$: 
4DE $ TYPE_NAME : 
Qeoe REPEAT 128 
4DE 8 ~ADDRESS UNK 
000006DE rt: 9 Fh 
6E 77 6F 6E 6B 6E 55 $0" Oebe ? UNK? sascic /Unknown/ 
4 § cretype LA36 
06EB8 cretype LA120 
6F 1 4 cretype LA34 
6F6 5 cretype LA 
F § cretype LA! 
6 cretype LAGS 
70 8 cretype LA 69 
A 9 cretype LQP 
71 40 cretype V1T5 
716 41 cretype VT5 
r38  328 Crete G0 
430 44 eretepe vT101 


Page 


Par 


tac’ 
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61 65 68 61 65 70 


65 

63 6€ 79 
63 

65 73 61 63 


65 
74 69 62 
73 61 63 64 61 6F 


63 6€ 79 


7°O 
a 


6F 68 63 45 20 6F 4E 
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0 
79 54 20 6F 4E 00° 
64 


ie 
70 61 63 73 45 05" 807 
73 74 73 6F 48 00° tt 
ena 
72 65 77 6F 4C oe HH 
62 61 54 ° S 33 

70 61 72 57 00° C 

65 70 6F 63 53 7 i 
74 6F 6D 65 52 . 4 
74 68 67 69 45 P 3 
72 42 20 6F 4E » rs) 
4 3 

73 64 61 65 52 oe rH 


ARES SENSE I OOOO 


UENO OONOAOUS WH" OOOO 


cretype 
cretype 
cretype 
cretype 
cretype 
cretype 
cretype 
cretype 
cretype 
cretype 
cretype 
cretype 
cretype 
cretype 
cretype 
cretype 
cretype 
cretype 


Sebi 3be 33:38:40 
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vTl 

vTl 

vTl 

vT131 

vT1 

vT1 

vK10 

V1200_Series 

tg Bes .0Ts 
Ss, 

it 

TS 

FT4 

FTé 

FT? 

FT8 


$ POSITIVE CHARACTERISTIC STRINGS 
lenees _NAME : 


-ASCIC 
-ASCIC 
-ASCIC 


-ASCIC 
»ASCIC 
»ASCIC 
-ASCIC 
-ASCIC 
-ASCIC 
eASCIC 
-ASCIC 
-ASCIC 
-ASCIC 


-ASCIC 


ste 


1$,2$,3$,4$,5$,6$,0,7$,8$,95.0,0,10$,11$,0,13$,0,14$,15$, 168,178,188 


/Passall/ 
/No Echo/ 
/No Typeahead/ 


/Escape/ 
/Hostsync/ 
/TTIsync/ 
/Lowercase/ 
/Tab/ 

/Wrap/ 

/Scope/ 
/Remote/ 
/Eightbit/ 

/No Broadcast/ 


/Readsync/ 


6D 72 6F 46 6° 
70 75 64 66 6C 61 48 00° 
6D 65 64 6F 4D 00° 


6F 68 63 45 00° 

64 61 65 68 61 SF 65 70 79 54 00° 

65 70 61 63 73 45 20 6F 4E O° 

63 6E 79 73 74 73 6F 48 20 GF 4E 00° 
63 6E 79 73 54 54 20 6F 4E 00° 

65 73 61 63 72 65 70 70 55 00° 

62 61 54 20 6F 4E 00° 

70 61 72 57 20 6F 4E 00° 

79 70 6F 63 64 72 61 48 oa. 

65 74 6F 6D 65 52 20 6F 4E 00° 

74 69 62 74 68 67 69 45 20 6F 4E 00° 
74 73 61 63 64 61 6F 72 42 00° 

63 6E 79 73 64 61 65 52 20 6F 4E 00° 
6D 72 6F 46 20 6F 4E 00° 

70 75 64 6C 6C 75 46 00° 

6D 65 64 6F 4D 20 6F 4E 00° 
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00000000 000009F B*000009F 2'000009€7" 


#16 
= SHOW CHARACTERISTICS OF A TERMINAL 


eASCIC /Form/ 
eASCIC /Halfdup/ 
-ASCIC /Modem/ 


S 3 
3 NEGATIVE CHARACTERISTIC STRINGS 


NEGITIVE_NAME : 
9 1$,2$,3$.48,5$,6$,0,7$,8$,9$,0,0,10$,11$,0,13$,0, 14%, 15S, 168,178, 18S 


CHRS1=<<. -NEGITIVE_NAME>/4>-1 
-ASCIC 


/Interactive/ 
/Echo/ 
/Type_zhead/ 
/No Escape/ 
/No Hostsync/ 
/No TTsync/ 
/Uppercase/ 
/No Tab/ 

/No Wrap/ 
/Wardcopy/ 
/No Remote/ 
/No Eightbit/ 
/Broadcast/ 
/No Readsync/ 
/No Form/ 
/Fulldup/ 

/No Modem/ 


: Second devdepent word 


0$.18,28,0,4$,0,6$,7$,8$.0,0.0.0,0,0,0,.0,0.0,0,0,0,0,0,248,258, 248.2 


15-SEP=19 
4-SEP=-19 
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A02" 0978 
80908 DOG woe, 8 
0004 age 
9AB 
988 
A2B* O9CB 
A54° 308 
6F 4C ‘4 444 413 0$ ASCIC /Local_echo/ 
64 75 61 62 6F 74 75 41 4 ars 414 1$: -ascic /Autobaud/ 
70 75 67 6E 61 48 00° 44 4 415 2$: -ascic /Hangup/ 
78 62 6D 74 73 63 64 72 42 B. aoe 416 4$: eascic /Brdcstmbx/ 
4E 4F 58 ‘s pare 417 5$: -ascic /XON/ 
41 4D 44 ‘# OAiG 418 6$: eascic /DMA/ 
64 68 61 65 70 79 74 6C 41 09° gate 419 7$: eascic /Altypeahd/ 
(65 65 70 73 SF 74 65 53 20 OF 4E 00" OAle 420 8$: .ascic /No Set_speed/ 
C OAIE 
0A2B ‘3! 
54 52 43 SF 49 53 4E 41 99" pA 4 422 24$: -ascic /ANSI_CRT/ 
73 69 67 65 52 oy" oA "i 423 25$: -ascic /Regis/ 
65 646 6F 6D SF 6B 63 6F 6C 42 00° OASA 424 268: -ascic /Block_mode/ 


OA 
69 76 SF 64 65 63 6E 61 76 64 41 00° 0A45 425 27S: eascic /Advanced_video/ 
6F 65 Se 0A51 


| AGS 

| 65 64 6F 6D SF 74 69 64 45 05: ASG 426 288: .ascic /Edit_mode/ 

| 54 52 43 SF 43 45 464 00" ASE 427 29%:  .ascic /DEC_CRT/ 
32 54 52 43 SF 43 45 44 90° 0A66 «0428 30$: .ascic /DEC_CRT2/ 


429 ; 

430 ; Negative of the second devdependent longword 

232 heg2 | 

n ; 
235 "°9** tons 08, 18,28.0.48.0,68,78,88,0,0,0,0.0,0,0,0,0,0,0,0,0,0,0,248,258,268,2 
: if AEB 434 NUMCHRS2=<<.-NEG2>/4>-1 
63 65 SF 6C 61 63 6F 4C 20 6F ay oe 00° AE 435 O$: .ascic /No Local _echo/ 
AE 


64 75 61 62 OF 74 75 41 20 OF 4E O° AF 436 1$: -ascic /No Autobaud/ 


+ 
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AF 
7) 75 67 GE 61 48 20 6F 4E o0° : 437 2%: -ascic /No Hangup/ 
F 4 
62 6D 74 73 63 64 72 42 20 6F 4E 99" +4 139 4$: -ascic /No Brdcstmbx/ 
OF 
46 46 4F 58 6: if 440 5$: eascic /XOFF/ 
41 4D 44 20 6F 4E 00° 3 ; 441 6$: -ascic /No DMA/ 
68 61 65 70 79 74 6C 41 20 6F 4E 00° ? 442 7$: -ascic /No Altypeahd/ 
C 
64 65 65 70 73 SF 74 65 53 ‘ 443 8S: -ascic /Set_speed/ 
F 444 
54 52 43 SF 49 53 GE 41 20 GF 4E 60" 445 24$: eascic /No ANSI_ERT/ 
73 69 67 65 52 20 6F 4E 00° 0848 446 25S: -ascic /No Regis/ 
08 0848 


/6F 6D SF 6B 63 6F 6C 42 20 6F rt: 00° 0854 447 26$: -ascic /No Block_mode/ 


D 
6F 4E 00° 0B62 448 27%: -ascic /No Advanced_video/ 


64 65 63 6E 61 76 64 41 20 
| 6F 65 64 69 76 SF 0B6 


11 Opee 
64 6F 6D SF 74 69 64 45 20 6F 4E 00" +43 449 28%: eascic /No Edit_mode/ 
OC 0874 
54 52 43 SF 43 45 44 20 SF 4E +f pes 450 29S: -ascic /No DEC_CRT/ 
/32 54 52 43 SF 43 45 446 20 6F GE =" pene 451 308: eascic /No DEC_CRT2/ 
0898 452 crebit2 editing,<Line Editing>.<No Line Editing> 
0BB5 45 crebit App perped <epc test on seypse> ,<Ghuner c¢ Keypad> 
OBD7 454 CREBIT2 FALCBACK,<Fallback>,<No Fallback> 
OBE ¢ 455 CREBIT2 DISCONNECT,<Disconnect>,<No Disconnect> 
COS | 456 CREBIT2 DIALUP,<Dialup>,<No Dialup> ; 
0C16 386457 CREBIT2 INSERT,<Insert editing>, <Overstrike editing> 
0C38 46458 CREBITO PRINTER, <Printer port>, <No Printer Port> 
0c55) = 459 CREBIT2 SECURE,<Secure server>, <No Secure server> 
0C74 460 CREBIT2 SIXEL,<SIXEL Graphics>, <No SIXEL Graphics> 
C95 0s «461 CREB} T DRCS,<Soft Characters>, <No Soft Characters> 
CBB s «446 crebitd2 PASTHRU,<Pasthru>, <No Pasthru> 
CCB 46 CREBIT2 SYSPWD, <Syspassword>, <No Syspassword> 
OCE6 464 
CE6 465 .noshow me 
6E 65 76 45 00° see 466 EPAR: eASCIC /Even/ 
64 64 4F 00° 3 467 OPAR: eASCIC /Odd/ 
65 6E 6F 4E Oe cer 468 NOPAR: .ASCIC /None/ 
012C 0096 0086 006E 0048 0032 0000 cr 469 SPEED: .WORD 0,50,75,110,134,150,300,600,1200,1800,2000,2400, 3600,4800,- 
E 


ob Ob Fs OA eek 


oo 


470 7200 ,9600,19200 
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508 PRINAME:.ASCIC /<Private>/ 


DI16. «471 SYS_COMMAND: 
4F 43 24 53 59 53 DODDDDIE’OI0NE0000' 0016 472 -ASCID /SYSSCOMMAND/ 
44 GE 41 4D 4D : $ 473 : 
4 4 ore 3; SPACE FOR PROCESS OWNER NAME AND GETJPI 
99 00014 0D29 476 OWNER_NAME : LONG 20 
0000031" OD2D 47 -LONG 10$ 
0000045 0D31 478 10$: -BLKB 0 
000014 p45 479 USER_NAME: »LONG 0 
0000040" 0049 480 LO 0$ 
0000061 0D4D $8] 208: -BLKB 
0014 D614 : JPI_ITMLST : WO 
1¢ +t) 48 ~ WORD JPI$_PRCNAM 
00000031" 0D6 484 «LONG OWNER_NAME+8 
00000029" 0069 485 ~ LONG OWNER — NAM 
14 Dé6D $36 ~ WORD 
202 +i 48 -WORD JPIS$ ore 
00000D4D° 0071 488 »LONG USER_NAME+8 
00000045" 0075 489 -LONG USER_N NAME 
00000000 O0D79 490 LONG 0 
OD7D 491; 
dh 136 3; NO OWNER NAME 
00000008° 0D7D 494 NO_OWNER: -LONG 20$-10$ 
00000085" 0081 495 -LONG 10$ 
72 65 6E 77 4F 20 6F 4E OD85 496 10$: eASCII /No Owner/ 
4 497 20S: 
0000000D* OD8D 498 NOT_AVAIL: -LONG 20$-10$ 
0000095" 0D91 LONG 
6C 62 61 6C 69 61 76 41 20 74 6F rt: 44, 500 10$: eASCII /Not Available/ 
| QDA2 501 20S: 
| 0000 OpA2 50 ¢ ot BUNK: -WORD 0 
65 74 20 6C 61 63 69 73 79 68 50 93" DAS 50 Y_TERM: eASCIC ‘Physical terminal: ' 
20 3A 6C 61 6E 69 6D ‘¢ oor 
72 65 74 20 6C 61 75 74 72 69 56 00° ser 504 VIR_TERM: eASCIC ‘Virtual terminal: ‘ 
20 3A 6C 61 6E 69 $6 354 
72 61 70 20 73 73 69 6D 73 69 44 00° ODC 505 DISM: eASCIC /Dismiss parity errors/ 
73 72 6F 72 72 65 20 79 74 9 eee 
oF 0 65 74 1 of 69 6D 72 $3 54 00° ODE1 506 NODISM: .ASCIC /Terminate on parity errors/ 
2 65 20 79 74 69 72 61 g $9 6— ODED 
eae oy 
'65 76 63 65 GE 6E 6F 63 73 69 44 oY" ODF 507 DISCON: .ASCIC /Disconnected/ 
4 oor 
E09 
0E09 


3E 65 74 61 76 69 72 50 3C 05° 
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-PSECT SHOWSCODE ,NOWRT 
SHOWSTERM = SHOW TERMINAL CHARACTERISTICS 
FUNCTIONAL DESCRIPTION: 


0000 


THIS ROUTINE SHOWS THE CHARACTERISTICS OF A SPECIFIED TERMINAL. 
IT IS ENTERED AS A RESULT OF A DISPATCH FROM THE SHOW COMMAND PROCESSOR. 
INPUTS: 
None 
OUTPUTS: 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
+ 


None. If any error occurs, it will be signaled 


ENTRY SHOWSTERMINAL, “M<R2,R3,R4,R5,R6,R7,RB,RI> 


QOOOO36C*EF 7F PUSHAQ ae ~pESt GET VALUE DESCRIPTOR 


90000374 ‘ER «= O7F PUSHAQ ice + GET REQUEST DESCRIPTOR 
00'GF 0 CALLS ‘ G* CL ISGET _VALUE + REQUEST TERMINAL NAME 
E8 BLBS 0;20$ : IF LBS, GOTA NAME 


> DEFAULT NAME IS ‘'SYSSCOMMAND’’ 


OOOOOS6C*EF  OO000D16"EF 7D MOVa SYS_COMMAND, TERM_DESC ; Use ‘'SYSSCOMMAND’’ as name 


PRED DD srs & BB BE BEE ENN AIIIPINIPINPIPINININ 2 OO OO Oe Oe 
MEW OOONOA UES WIN 0 ODNAUE WN 0 OD NOUS WN 0 OD NAMES WN OOONOULS WIN 


Oe ee ee nn ens) Abed ded db Abd 


1 
1 
1 
1 
: GET DEVICE INFO IN CASE THE TERMINAL IS ASSIGNED TO SOMEONE ELSE 
t THIS ALLOWS SOME INFORMATION TO BE PRINTED. 
56 OO00036C'EF  7E 20$:  MOVAQ TERM_DESC GET ADDRESS OF TERMINAL DESC 
$GETDOVIW S bévN An=( RG). 1mm t= =SECDVI_INFO 
O0000000'EF 50 3C MOVZWL RO, SHOWSL STATUS : COPY 
03 50 és BLBS  R0.23$ : BR IF ERROR - NO SUCH DEVICE 
0127 31—«O04E 318: BRW 4 
24 O000002C"EF 14 €1 0051 3$: BBC #DEVSV_MBX, TERSL_DEVCHAR, 25$ CHECK IF MAILBOX 
0059 SGETDVIW_S DEVNAM=(R6) , ITMLST= =<ceTpvi INFO; YES THEN GET 
oF ECONDARY CHARACTERISTICS 
00000000°EF 50 3¢ 007 MOVZWL RQ. SHOWSL_STATUS ‘ott. . STATUS CODE 
01 50~—= «ES O7A BLBC ~—_ RO. 218 [BAD SCEAN 
QOOOOOIC"EF  OO0000SC'EF F6 $7 25$:  CVTLB  TMPSL -DEVCLASS TERSB_DEVCLASS; CONVERT THE DEVICE CLASS 
0000001D°EF 00000060'°EF Fg 088 CVTLB TMPSLDEVTYPE, fERSB_DEVTYPE; CONVERT THE DEVICE TYPE 
QOOOOOIE'EF  O0000064"EF F7 009 CVTLW = TMPS$L ~DEVBUFSIZ. TERSW DEVBUFSIZ; AND THE TERMINAL WIDT 
0000004C"EF  O0CO00G8°EF Fb Ove CVTLB TERSLDEVNAMLN, TERSB_ BEYNARCTs MAKE A DEVICE NAME COUNTED STRING 
0000 * 8F 3c ©6O0A9 MOVZWL #SS$_IVDEVNAM, SHOWSL STATS 3: Assume device not terminal 
94 1808 D0p0zC* ‘eF «602~—=C‘é:SA 082 BBC #DEVSV_TRM, TERSL_DEVCHAR,21$ ; Error if not a terminal 
O0000000"EF O0000°8F 3C OOBA MOVZWL #SS$_TERMNETDEV,SHOWSL_STATUS ; Assume being used by network 
83 OOO0002ZC'EF OD €0 Me BBS #DEVSV_NET, TERSL _DEVCHAR,21$ ; "Error if network usage 
(B ; 
$e 66 : TRY TO ASSIGN A CHANNEL TO THE TERMINAL = TO GET SPEED AND PARITY 


a — = 
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CB «4567; 
Oe 68 28S SASSIGN_S (R6), CHAN ASSIGN CHANNEL TO DEVICE 
64 50 €9 00DC $ BLB RO, 30$ IF LOW CLEAR THEN PRINT WHAT'S AVAIL 
00000068 ' EF ic'EF 7D OODF 0 MOV TER INFO, TMPTRM_INFO; sale an RECIEVED INFO INCASE OF 
00000070'EF 00000 4c EF 0 OOFA 571 MOVL TERSL_DEVDEP2, TAPTRMSL_D 
0 4 C'EF C O0FS e CLRO  ~=—s-: TER_INFO : CLEAN THE INFO BLOCK OUT 
O26°EF D4 FB 7 CLRL _—* TERSL_DEVDEP2 THE SECOND Posse DEPENDENT WORD 
1 74 $010w_S 1h ese agrees wee PI=TER IN 0,P 
16 50 Le 12a «6575 BLBS ~ RO, 30$ “NO ERROR ART THE NORMAL WORK 
0000001¢ ‘EF si 8: EF 7D 0120 id: MOV TMPTRM_INFO, TER RESTORE THE TERMINAL INFO ORMAT 10N 
00000024"EF 0 "tf pd (01 8 7 MOVL § TMPTRMSL_DEVDE EP2, mth =DEVDEP2; AND SAVE THE ERR 
00 EF 0 v0 O14 28 30$:  MOVL RO SHOWSE STATU SAVE ERROR CO 
(0000382°EF DF O14A 57 PUSHAL PERM_ROST : SEE IF /PERMANENT WAS SET 
*GF 9 re o129 80 CALLS pat onesen 
09 50 «£8 «(015 81 BLBS 0, : IF NOT SET 
QOOOO1ES"EF 00 FB O14 Be CALLS #0.NOT_PERM ; PROCESS EE GULARLY 
07 +11 «+0161 8 BRB : AND PROCEED 
QOO0018C"EF 00 FB 163 4 353: CALLS #0,PERM + OTHERWISE PROCESS PERM 
16A 585 37$: § $DASSGN_ CHAN : DEASSIGN CHANNEL 
50 00000000 "EF DO 0178 5864 MOVL ~SHOWSL_STATUS,RO : RETRIEVE FINAL STATUS 
09 50 €8 O17F 587 BLBS  R0,45$ : SKIP IT IF 0 
50 DD 0182 588 PUSHL RO : OTHERWISE SIGNAL IT 
00000000'GF 01 FB 0184 589 CALLS #1,G*LIBSSIGNAL 
04 0188 390 45$: RET , 3 DONE 
018¢ 298 t PERMANENT QUALIFIER ROUTINE 
OFFC 018C 594 PERM:  .WORD cncRe R3,R4,R5,R6,R7,RB,RI,R10,R11>; PROCESS PERMANENT QUALIFIER 
4A 00000000' EF 9 0186 595 BLBC SHOW STATUS, 158. ; BR IF CHANNEL NOT ASSIGNED 
QOOOOOIC*EF 7C 0195 596 CLRQ ~=svrTTER TNO ict EAN THE INFO BLOCK OUT 
00000024"EF D4 0198 597 CLRL TERSL_DEVDEP2 FOR COMPA et ee REASONS 
O1A1 598 $a10w_S #0, CHEW 1108. SENSECHAR, 1088, Piz =TER I P2=A1 
0A 50 €9 OCA 599 BLBC ~ RO,5$ Ucee ESS 
50 O000000C°EF 3C O1CD 600 MOVZWL 20SB,R : GET 1088 erATU an 
1450 €8 0104 601 BLBS Be eRtaT AND CONTINUE IF SUCCESS 
00000000'EF 50 D0 O17 602 5$: movi RO, SHOWSL_STATUS + SAVE STATUS 
00000000'EF  0000'°8F 3¢ O1DF 604 15$: MOVZUL #SS$_NOPRIV,SHOWSL_STATUS; ASSUME NO PRIVILEGE 
O1E9 606; 
DiES rt : OUTPUT CHARACTERISTICS AND NON-PERMANENT QUALIFIER ROUTINE 
OFFC 0169 609 NOT_PERM:.WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>; NOT PERMANENT ENTRY 
OieB 610 PRINT: : : 
168 61¢ + OUTPUT NAME, TYPE, WIDTH AND PAGE AND OWNER 
OOOOOIES*EF  QOOO0D7D'EF 7D OIEB 614 MOVa NO_OWNER, CHAR_LIST+8 ; Use an inocuous owner if it is 
00000028'EF 05 O1F6 615 TSTL  TERSL_PIO : Check %o see if there #s an owner 
61 13. OFC olg BEQL 3; No owner then leave as a default 
1FE 61 $SGETJPIW_S =- 3; Else get the owner information 
1FE 18 TTMLST = JPI_ITMLST, - : 
FE 61 PIDADR = TERSL_PID : 
0D 50 8 19 620 BLES ~=s-s«aRO, 28 : Got it é 
OOOOOTES*EF . eocceeee "tr D 4 621 MOva NOT_AVAIL, CHAR_LIST#8 ; Else say owner not available 
6 11 3 : j BRB 3$ 
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OOOOOIES*EF O0000D29°EF 7D ¢? 624 28: mova wakes NAME om LIST+8 ; Insert real owner name 
00000049." FF D4rier — ¢0 3A 4 625 LOCC USER_NAME, QUSER.NAME+4 ; Remove trailing blanks 
04 obs ge rh 6 § SUBL RO. NAME” from Username 
OWN sia WNER_NAME + 3; Is owner process name 
20 90000020 FF Gog er ed Oar 6 CMPCS ER NARE. SOWNER_NAMESS, <0" 
33 6 g #*A* *, USERNAME, Q@USER_NAME+4 the same as username? 
06 12 20 & BNEQ 38 ; Nope, keep the usernene around 
00000045 "EF pe F 630 § CLRL special username to display 
000001D8 "EF 9000004¢ EF $5 631 5$ MOVAB VERS ASB. NOEYNAMCT, afar ist address name 
0 00000 WD'Er 9 g é é CVTBL TERSB-DEVTYPE, bet terminal yp value 
1 7 6 BGEQ 9$ : Non- yorerqn 
0000053D'EF be FB 79 634 CALLS #0, GET_FOREIGN_TYPE 3; Foreign (128-255), go find type 
eS i 6 5 RB 10$ 
OQOOOOIDF*EF  QOOOO04DE"EF4O 00 H 6 5 9$: MOVL TYPE_NAMECROJ CHa LIST+4 ; Set address of type name 
0 8E 638 ASSUME END NAME=TVPE NAME /4 4 €a 
001DB" F gf 639 10$: BUSAAL CHA ist ; Output message 
000039 e F 8 4 640 PUSHAQ crous- + 
00000000 ' GF 2 FB 8 mA 6] CALLS #2, G*SHOWSURITE_LINE 
‘ 8 re eis ; Output physical and/or virtual device name and/or username, if any 
000001DB"EF  OO0000DAG'EF 9E 02A1 645° MOVAB PHY_TERM, CHAR_LIST 3; Assume physical terminal display 
OO0001pF “EF ST moonshr ce DFC 8 SE 8 AC 64 MOVAB ODISCON, CHAR_LIST+4 Assume disconnected terminal 
EO 0287 64 BBS #DEVSV DET, TERSL towns 18S; Br if disconnected 
00000088" EF 00000036'Er FS O2BF 648 CVILB TERSL_PHYDEVLN, TERSB_ PHYDEVCT : ‘any physical device name? 
43. 13 O2CA 649 QL $ s disconnected 
1/00 00000039'EF see tee 20 2 ce 650 CMPC5 TERSL_PHYDEVLN, TERS _puYbEVe™ +, ; Is the physical name 
00000040 ‘EF 02DD 651 TERSL_DEVNAMLN, TERS_ DEVNAM ; the same as virtual name? 
OD 13 O2E2 $26 BEQL 14$ Yes, no physical mame to display 
OOOOOIDF*EF  QOOOOOO038"EF 9E O2E4 65 MOVAB TERSB_PHYDEVCT, CHAR “Listes: "Else set the physical name 
1€ 11 +O cf 63% BRB 15$ 
000001DB ‘EF OOOO0DA2 * EF 9E 6 Fl 656 14$: MOVAB BLNK, CHAR_LIST ; Blank out the 
OOOOOIDF*EF  QOOOODA2"EF 9E O re 657 MOVAB BLNK, CHAR_LIST+4 : wehestentivtreusl name display 
00000D045'EF 0D 8 658 TSTL USER_ ; Any username to display? 
a | 30D 659 BEQL $ ; Nope, nothing to disetsy at all 
000001DB ‘EF OF 030F 660 15$: PUSHAL CHAR_LIST 3 Stac ist 
QOOOOSCA*EF F B3i2 661 PUSHAQ SHOWS TERM_LIA 3; and FAO string 
00000045 "EF BS 9318 66 ret USER RARE : . username to display, too? 
6€ sia borg 7E 0323 664 MOVAQ SHOWS _TERM_L1B, (SP) ; Yes, change the FAO string 
000001E3"EF 900 0D4 “EF ? 3 A 665 MOVAQ USER NAME, ~CHAR_LIST+8 ; and set the username 
"GF FB 5 666 18$: CALLS G*SHOWSWRITE_LINE ; Output message 
: o8 198: 3; Continue 
: ? B | ; OUTPUT PRIVILEGED LINE OF. INFORMATION 
03 eaeneet ©; si is or oes SHOWSL_ STATUS,23$ ; IF ASSIGN FAILED THEN NO SPEED LINE 
7 Q000000F ‘EF A 46 675 23S: MOVZBL I10SB+3,R7 ; GET THE SPEED 
’ 6 12 4D 674 BNEQ fetes TIF IT WERN'T ZERO THEN USE THIS SPEED 
57 OO0E *EF 9A 4F 675 MOVZBL :ELS — USE THE OTHER SPEED 
mma, eee Hus Ge RU REL TLmegtt ret 
000001€ 3°EF Bo0000TE "EF 3c 0360 «6678 MOVZWL Tat ge ‘sale anit ERT wl ibtH 
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2reei 1882 S338: 28 FET UTS Baers et ee marsy 2? 
9 7 679 MOVAB NOPAR,CHAR_LIST+12 i DASSUME NO PARITY 
3 680 BBC #TTSV PARITY 10$8+6,258; * PARI 
F B 681 MOVAB EPAR,CHAR_LIST+1 ; ASSUME EVEN 
6 6 : TT$V ODD; 1088+6 25$ =: BR IF EVEN 
E O39— 6 MOVAB_ OPAR,CHAR_LIST+12 ; 
9F O3A9 684 25$:  PUSHAB CHAR List + USE THE NORMAL CHARACTERISTIC LIST 
DF O3AF 685 PUSHAL SHOWS TERM_L2 + AND USE OUR SECOND LINE 
FB 0385 686 CALLS 3 SH ueGRTHE LINE + SHOW THE ME 
9A O03BC 687 MOVZBL 10$B+ Rs t SPEED OUT 
C O03¢3 688 MOVZWL SPEED R8),CHAR_LIST 
A O3CF 689 MOVZBL JOSB+4,CHAR_LIST+4 INSERT CR FILL 
9A O03DA 690 MOVZBL TERSB CENGTR CHAR *LIst+8: INSERT _PAGE 
9€ O365 691 OVAB  BLNK,CHAR_LIST+12~ : DON I Jett ABOUT DISMISS IF NO PARITY 
al F 63¢ aTT$V PARITY 10$B+6,27$ : PARITY 
. F869 MOVAB DISM,CHA [St+i2 : NORMAL DISMISS PARITY ERRORS 
f 403 694 BBS #1 TosBees 3 : CON TINUE IF NOT DISMISSING 
— 0408 695 MOVAB NODISM,CHAR_LIST+12 AND SAY NO DISMISS 
9F 0416 696 27$:  PUSHAB CHAR gist, a ‘OUTPUT MESSAGE 
DF 041¢ 69 PUSHAL SHOWS 
FB § $38 CALLS #2, SrougceTte _LIWE ; 
04 9 700 ; OUTPUT CHARACTERISTICS DATA 
| 429 701 
| 54D 04g 708 Sos: CLL 
S56 O00001DB'EF 9E 04 70 MOVAB CHA LIST,R6 
86 03 00 04 704 OVL SANORPERL INE- 1,(R6)+ ; HOW MANY OF THESE ARE ON A LINE 
| 01 «CE 0435 105 MNEGL #1,R SSTART RS AS NEGITIVE 1 
j 
66  00000792°EF44 09 0438 707 50$:  MOVL  POSITIVE_NAMECR4],(R6); ASSUME POSITIVE 
13 0440 708 BEQL 65$ 
. D6 0442 709 INCL = R5 
06 55 91 0444 710 CMPB  =—s-R'5, S*#WNUMPERLINE :KEEP COUNT OF HOW MANY OF THESE WE USE 
09 «(12 0447 711 BNEQ 6 55$ mi WE DON'T HAVE 5 THEN DON'T WORRIE 
04 A6 66 DO 0449 £18 MOVL  (R6),4(R OVE THE LOCATION UP 1 LONG WORD 
8 03 00 0440 71 MOVL S SNURPERLINE=1, (R6)+ ‘MOVE UP 1 AND PUT IN THE COUNT 
55 4 (04500714 CLRL RS 
| 08 00000020 EF 54 €0 0452 715 55$:  ®BS R4, TERSL_DEVDEP BR IF POSITIVE 
66  00000870°EF44 00 45A 216 MOVL NEGITIVE~NAMELRS OF 86): Ser NEGITIVE 
| 86 05 0462 717 60$: TSTL (R6)+ MOVE TO NEXT 
D6 0464 718 65$: INCL RG 
15 54 D1 0466 719 CMPL = R4, #NUMCHRS1 ; TEST IF DONE YET 
cD «(1B 469 720 BLEQU 508 
54 D4 468 4 ¢ CLRL R4 3 START OVER WITH R4 
| 66  0000096B'EF44 09 4 724 70$:  MOVL  POS2CR4],(R6) : ASSUME POSITIVE 
i 13 47 u 5 BEQL : $ : IF NOTHING THERE TO ASUME THEN DON'T 
| 0 55 91 0479 7 4 CMPB  =—s«R'5., #NUMPERLINE :KEEP COUNT OF HOW MANY OF THESE WE USE 
09 #12 «+O47C 728 BNEQ 736 IF WE DON'T HAVE 5 THEN DON'T WORRIE 
04 A6 66 DO O47E 729 MOVL  (R6),4(R6) SMOVE THE LOCATION UP 1 LONG WORD 
ee v0 4 , : MOVL #NUMPERL INE=1, (R6) + ‘MOVE UP 1 AND PUT IN THE COUNT 
08 00000024"EF 54 €0 0487 7 é 73$:  6BS sath th DEVDEP2, 75$  ; BR IF POSITIVE 
66 AGF°EFSS DO O48F 7 MOVL neg > SET NEGITIVE 
6 05 04697 734 .75$:  TSTL : MOVE TO NEXT 
4 66 0499 735 80S: INCL he 
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984 CLIUTL.SRCJSHOWTERM.MAR; 1 (3) | 
1€ 56 01 0498 7 CMPL §R4,#NUMCHRS2 : TEST IF DONE YET 
(cD) «so1B 49 f § BLEGU 70$ 
5 é C9 4A0 7 § ADDL #285 ‘ iMOvE THE POINTER TO THE CORRECT SPOT 
50 04 C5 04A3 740 MULL #4 RO 'GET OUR OFFSET 
9 C2 Q4A7 741 SUBL RO, RG 
66 «FE AS ODE ann fae MOVAL (R5), (R6) 
7E D4 04 744 -(SP) ; GET A NULL PARAMETER 
SE DD 0480 745 PUSHL  $P + AND POINT TO IT 
0000486'EF DF 048 746 PUSHAL SHOW$_T + GET CONTROL STRING 
00000000 ' EF we. 488 74 CALLS #2 ChOUSURTIE LINE + PRINT IT 
—E 0D Bf 248 TSTL © (SP)+ + CLEAN UP 
57 D4 04C1 750 CLRL =-R7 : KEEP TRACK OF WHERE WE ARE IN R7 
56 O1DB'EF DE 04€3 751 MOVA CHAR RobIst. ~R6 + GET AT HEAD OF CHARACTERISTICS LIST 
58 16 04«57)~—SOC5sC(OGCA 3¢ 81$: MULL : GET OFFSET INTO CHARACTERISTICS 
7 56 58 C1 04C 75 L Ra. eeu = (SP) + PUSH ADDRESS OF ONE LINE OF CHARS 
5000049" EF DF 0402 754 PUSHAL SHOWS TERM _LS : AND CONTROL STRING 
seeeee': Bi’ 2 FB 04D 755 ALLS #2 SF ouguRTTe _LINE : OUTPUT IT 
£7 0B sO«F2 O4DF 136 AOBLSS #11,R7,81$ t KEEP GOING 
se £28 ; Output spooled device data 
51 0000002C EF 06 £1 O4E 760 #DEVSV_SPL, TERSL_DEVCHAR, 85$ ; Br if not spooled device 
Rees 761 SGETDVIW_S - 3; Get spooled device information 
4EB 6 ace TERM DESC 
O4eB 76 ITMLST = SPLDVI_ INFO. 
00000000'EF 50 00 0509 764 MOVL RO, SHOWSL_STATOS : Save the status code 
29 50 =—«E9 b248 765 BLBC R Output nothing if failure - 
000001DB°EF  00000048'EF 00 051 766 MOVL  TERSL cess. CHAR List ; Insert name size 
QOOOO1DF*EF  O000004D'EF 9E oie 767 MOVAB TERS “BEVNAM, CHAR_LIST+4 ;\ and address 
; QOOOO01DB‘EF DF O05 768 PUSHAL CHAR List : Output message 
OOOO04BF'EF 7F O52F 769 PUSHAQ SHOUS T 
00000000'EF O02 FB 0535 770 CALLS #2, ShowsuRI TE _LINE 
04 053¢ 771 85$: RET 


—_————$—$_$———— a 
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D 773 ;+¢+ 
4 ore ; GET_FOREIGN_TYPE = Get a foreign terminal type (128 to 255) 
3 p £76 ; Implicit inputs: 
2 4 £78 ; TERSB_DEVTYPE = Foreign terminal type (128 to 255) 
2 4 4 9 : Implicit outputs: 
3 p f 5 : CHAR_LIST#4 = Address of terminal type name (.ASCIC) 
D 784° 
03 D g 5 GET_ frege TYPE: ; Get a foreign terminal type 
0000 33 4 ree WORD “M<> 
OQOOOOIDF‘EF  OOOO06DE'EF YE Baze ht MOVAB UNK, CHAR_LIST+4 3; Assume terminal is UNKNOWN 
Q0000060°EF  QOO0001D'EF 9A b2ee 790 MOVZBL venss -DEVTYPE, TMPS$L_vEVTYPE 3; Extend device type to conquers 
O00000BF BF QO000060"EF D1 0555 791 CMPL TMPSL— “DEVTYPE, # #191 : Type in the private rang 
1A 1A 0560 138 BGTRU 9 3 No (can always eft avetta names) 
00000000'8F QO0000000°EF 01 0562 79 CMPL SHOWSL_STATUS, #SS$_DEVALLOC 3 Don't tr y te to private name for 
12 0560 794 BNEQ : device alloc to someone else 
OOOOO1DF'EF OOO00EO9'EF 9E OS6F 795 MOVAB Pr AEM CHAR_LIST+4 : Use <Private> 
65 11 O5S7A 79 BRB 100$ 
bare Fob 
057¢ 4799; Do not Link to the SMG unless you must 
gare BON 
Q0000090°EF DF O57C 4 90$: PUSHAL SMGSINIT_TERM TABLE _BY_TYPE 3 Link to SMG 
SRE RS HE RRRE REST TE, ARE oh 
00000000 ° GF 6S FB O38 05 CALLS Hi G*LIBSF IND_IMAGE_SYMBOL 
00000094°EF DF 059 06 PUSHAL SRGSBEL TERM M TABLE 
rer” ae F 0598 07 PUSHAQ sgnc MGSDEC TERA_TABLE 
00000000 ' GF 3 «CFB Beal 4 CALLS G* CIOSF IND. IMAGE _ SYMBOL 
00000074°EF 7F OQOS5A8 10 PUSHAQ TMP_DEVNAM 3; Check termtable for definition 
So0000GO'ER DE OSB BIE BUSHAL TAPSC DEVERPE 
00000090 ' F F 63 FB OaBA 13 CALLS #3, SSGS INIT. TERM_TABLE_BY_TYPE 
1p) 89 = «€9 aH 1 BLBC RO, 100$ ; Exit if not defined 
QOOO007C*EF  00000074'EF 3 Bate 16 CVTWB TMP_DEVNAM, TMP_TYPE_CT ; Make name counted string 
QOO001DF*EF  O000007C"EF  9E aCF MOVAB TMP-TYPE_CT, CHAR_LIST+4 
00000094 ‘FF 00 «=«FB He 19 CALLS #0, @SMGSDEL_TERM_TABLE 3; Release any vm used 
04 B3E) : 100$: RET 
O8ES | 858 END 


Page 


o V04-00 
SHOWTERM.MAR; 1 


nm 


- SHOW CHARACTERISTICS OF A TERMINAL 


SHOWTERM 
Symbol table 


REINO COI OOP IOI OI OI OI OI OI OI OOOO PTET PEP OI OI OI OI OUI OI OI ON OI OI OI OI OOOO ONIONS 
CSOOOOOOOSOOOOOOOSOSOOSSSSOSSSOSOSOSSOSCOOSOOSOSOSOOOOSOOSOOOOOOOOOO 


© 
aeaeareaer 


Wut OO vous 
——OwVoeo < 


4 >< OC OC OE OK OK OK OE OK 
Oo o ovuvuI"e”Ny 
@aeanancaeanca aaadadacacaacaeca 


Qu Ou OO ¢€M<LOOw OO us Osu 
WOOUMNSOS *#OVOGAUTOaOooury 


WOCVOMDVOOTS OO? DWOKVUsTuw 
SF INO FT Ne TP OP Oe 


SOOQooooooooooooc 2Ooooo 
CGoooooooooooooooc soo 


feteeeee 
teneenes 
eeeneene 
teeeenes 
eeeeeene 
eeeeenee 
feneenee 
eeeeeene 
Titi ii i 

6 

0 

0 

0 

0 

: 

0 


w 
a 
> 
— 
1 
> 
@ 
1 
w 
wo 
@ 
aoc 
w <e ~N a 
z= «mam —- | > ne —- w 2aze =) 
w One KK VMTN EE w Mew va Nin a 
= P< ys I I I I LIYE v= Aa <«Zaxtoaaeaaki> u <= 
—< Oerz te_teeeees ( ew oot —- 323 otf >ewtiwweiw ss> e 
w w z w<—WESESESESOw— wo sZowssee B2VZ-VOVWVOOZSO @A<w w 
z = &- a Zefa aoaeececeacr § 24> 2900F78Q a>>>2>>>>> >> 07200F 
-—Ne <«< YE w NSW eI OM BE Wes oe Es > YD 
wns 2 Oe >w Se od ed od el ed ed ed el Lee) Ccoaagcvwrr BOLO AS SAS SOS 2 OES SS 
ecac ge os PR ot RRS Ht ep e#eveepceeeece ect t OGAOGceZz 
=rw ec — —<Fe SRKHRKHAGHAPAARHAAO—“(07>0— 2 LOVVIGVOAOAOOO JIB 
VLVEA SWE WH SZOBSTTTTITIIIIIIVAAWO 1 1 | MHRKHARH PALSGHACACGHACCACACCEATEZTE 
EEE VSS FE NY -VH OOO CCCCOCCOVUwW JH KHKHGHVYVNVUVUVESAEAeeeeeeeeeaeaeracaeaca 
323550 BwwrtOOStewFtTtITITITIET ITI ITE LAAN > > > WM 
222004444440 MYNNMNNNNXAHMNAVWHNAWWNWMKHMWMWWVVWKHWHNVO FS & & & He ee ee ee ee ee 
ON gucucucucucucuCuCuMmm® nur NCUCuMmmncu CuRnecucucucucumecucy 
oOo OOOO OOOOoOOoOO oo ooooooo Cooooooooooo 
<>< <>< << 
ga aaacadcaecca coe cece e i: 4 eaeaacacaeca 
Work OO TO F KT OQOVNVOMUNG We DVOYT CL VOOWNWOMG # & BOUNE £ FORK OOO 
BwWwOOVYUIAostOoa £¢ ¢€O- OOO. VOSOOSOOCSOwOoS-VNCC— QWwWM & £O- ONO @ # OR WWE 
&LOLVVOOOOCAOs € &€ SOSOSS BASSO SOSOSSOSOOSSOOOCSOSO— OVOM # €#OMVUNGA se € ZOOQVOo-— aM" 
OOOGOSGOSOOSSOS € ¢ SOSOOSOOSOSOSOSOSSOSSSSSSOSOOSOOSOOSOSSS « ¢ SOSS # & CSOOOSOOSOSO 
OOOGOOGOOGSOOOSS € ¢ GSOSSOCSOOSOOOSSOOSOSOSOOOOCOOOOOOSOSOS «# « S3ssss + SOOSCOooSS 
COOOOGOOOOOOSS €£ ¢ COSCO SGOOOSOOSOSOOOOSCOOCOOCOSOOSSOS £ « Ooo « OOSOSoSoOoOSoSo 
SOOSCOSOSOSOSSOOOSS € ¢ SOSOSSSOSOSSSSOSSSSOOSOSOSOOSOSOSOOSOSOS « ¢ OOOO « &§ SOOSOOSOSSS 
OOOOOOOOSOCSOS £ & QOOSOCOSOCOSOOOCOSOSCOOCSOOOOOOOOSOSSOOS €£ &€ OOOO £# & OCOOOCOOOSO 
nnnun nunun nunKnnnHnHnHnhnnnhnnn un 
w 
a 
> 
a 
‘ 
a 
@ 
i _ 
“ So 
w 
“a ry 
> 
z= = ws ” 
- 6 = NN z a a 
| 3 cn o > > (ve) 
} =. 4 w av~ede wHZZ wa -— aw Oo 
aw | Cm) YVisavww w o& et = 
we a Mwmuwvweuw<«<aaakza > ogs 9° 
- ¢ <z vauuw. =trtowwetr> = wOuv —_ = 
ee eS te <a4>4druQoeovvcaoz a amuw «uw a =! - 
a 2) “Mweys ey tater >>>>>>>0 —wnwn 2429 ww tot. 
wza ——- WO ZY VOC VOOWW ww www wer gz es = < = 
ve San awa ttt = ‘#e*+tt SOOooooscaocar —Oww b= | henband = E+ “” 
SESS oy sess sesse re RIA sddnvnnvaannen es mae Bayn—s os 
- 
PRARARAMNMNM BEF SW YUN YY > > > > > > > >> Oo >> owe ooee—"¥¥ sss 
PARPAAAPAAAAAADOYVYVVUvAGeooooocoonaoocoococoaooaocoacoww ee Ad od 


| 


L 


= SHOW CHARACTERISTICS OF A TERMINAL 


Page 20 
1 ° (4 


o V04-00 


SHOWTERM.MAR; 


me 


SHOWTERM 


Symbol table 


N 
So 
cr 
Ls] 
@ 
a 
o 
oS 
oS 
oS 
So 
= 
« 
kad 
= 
a 
ae 
no 
> 
eucucucucueucucy ciec 
Oooooccco ocoo 
eaacaeacaca eeccae 


SSSSSSSSSSSSSSSSSSS SSS SSS SSS SS SSS SSS SSS SSS SESS SSS SSS SSSSS 
oooooo Soooo 
DOOOOOCOOoOoOOooooSo SSSSSSSSSooS Sooo SSS SSS SSS SSS SSS SSS SSS SSSoSS 


SGOOOGOOSOOOSOOOSOSSOSSSOSOSSSSSSSSSSSSSSSOSSSSSSSSSSSSOSSSOSOSOOoOoooa 
HHHUHHHHHKHHHHHHKHHHHHKhKhKhHhnhHnHnHnHnnHnHhHnHhHnnKnhnnnnnnne 


- 


BP 
a 


FIP PAAMMMMMMAMMAAMMAAAAHAAAARAABABOABAOBNUVVUNNVUVUNE BS 
ee 


| TMPSL 
 TAPSL 
| TAPSL 
| TAPTR 


~N ” aS 
N~ a w <« vw 
—WT w ” _ Qq w las, 
YMwWoa uw w « > $4 >= 
<a> = = w wo <a eww 
24> wWwO rf > « ” ~> pees Prt Sr 
S35 sa S-* - ww 4 Wore owe Zow 
>> & + = s Oo a Pe ety 4 pee PPP pe ppt ~ we 
pververry) “Eves NVTTODO MOMOCOCOCCMMN OV ——ZOd Za Sw > “” 
econo SE S< msn on err amma FOr KK KK KKK NNN EOOOwWe AA NUM w 
oe Oh ed el el ed el ol ed ee eS ew el el ee ee ee ee | 
Orr _ | BRueueuwevewese JIA >>> >>> oo o> >>> > >> oo Oo oe Oe Oe COI os 


4 1 
SHOWTERM ' © SHOW CHARACTERISTICS OF A TERMINAL at Seth 9 $3: 48:28 AX/VMS Macro V04-00 Page 21 | 
Psect synopsis 4-SEP-1984 23:25:40 (CCLIUTL.SRCISHOWTERM.MAR; 1 (4) 
fmonewenowm nr aon we + | 
! Psect synopsis : 
Gcecesees esconon => 
PSECT name Allocation PSECT No. Attributes 
ij. ABS . 00000000 ( 0.) 9 ( 0.) NOPIC USR CON ABS LCL ee NOEXE NORD NOWRT NOVEC BYTE 
| SABSS 00000000 ( Q- 1 ¢ 1.) NOPIC USR CON ABS LCL NOSH EXE RD WRT NOVEC BYTE 
| SHOWSRWDATA sie ( 700 ) 86 ( s°} NOPIC USR CON REL LCL NO Sh NOEXE RD WRT NOVEC LONG 
| SHOWSCODE QO0000S5E2 <¢ 1506.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
j fhowowmen monn amas aaa a $ 
! ;_Per formance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 10 OF +80 00 «06 00:00:00.85 
pounend processing 0:00: 9-88 00:00:04 .46 
00:00:11.52 Bp 18 8.36 
Symbol table sort ae eS 0:00: 5°82 
Pass 2 1 00:00:03.25 00:00:10.38 
Symbol table output tes feed 00:00:00.88 
Psect synopsis output 0:00:00.02 00:00:00.03 
Cross-reference output See 00:00:00.00 
Assembler run totals 611 00:00:17.1 00:00:58.86 


The working set Limit was 1500 pages. 
74182 bytes (145 pages) of virtual memory were used to buffer the intermediate c¢ 
There were 50 pages of symbol table space allocated to hold 770 non-local and 168° lect symbols. 
8s source Lines were read in Pass 1, producing 38 object records in Pass 2. 
pages of virtual memory were used to define 26 macros. 


Guoceseseoousooossosvescooer$> 


Macro Library name Macros defined 
$255$0UA28: CCLIUTL.OBJICLIUTL.MLB; 1 0 
$255$0UA28:(SYS.O0BJJLIB.MLB; 1 0 
$588$DUA 8: SYS IBISTARLET MLB:2 19 

Tears (all Libraries) 19 


Ww 
mo —oc 
OonN—-OOouMo 


| 849 GETS were required to define 19 macros. 
| There were no errors, warnings or information messages. 
MACRO/LIS=LISS: : SHOWTERM/OBJ=0B8J$:SHOWTERM MSRCS$: SHOWTERM/UPDATE=(ENHS$: SHOWTERM) +EXECML$/LIB+LIB$:CLIUTL/LIB 
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